Chip 2000 November

home *** CD-ROM | disk | FTP | other *** search

/ Chip 2000 November / Chip Kasım 2000.iso / prog / share / 11 / setup.exe / %MAINDIR% / DEMOS / CIRAS / EDITPHBK / EntryInf.Frm (.txt) < prev next >

Wrap

Visual Basic Form | 2000-09-07 | 26.9 KB | 807 lines

VERSION 4.00 Begin VB.Form frmEntryInfo ClientHeight = 4575 ClientLeft = 2565 ClientTop = 1500 ClientWidth = 5460 Height = 4980 Left = 2505 LinkTopic = "Form1" LockControls = -1 'True ScaleHeight = 4575 ScaleWidth = 5460 Top = 1155 Width = 5580 Begin VB.VScrollBar VScroll1 Height = 1695 Left = 4740 TabIndex = 62 Top = 0 Width = 255 End Begin VB.PictureBox Picture1 BorderStyle = 0 'None Height = 12400 Left = 0 ScaleHeight = 12405 ScaleMode = 0 'User ScaleWidth = 4455 TabIndex = 0 Top = 0 Width = 4455 Begin VB.TextBox txtRasOpts Height = 285 Index = 19 Left = 2100 TabIndex = 60 Top = 11760 Width = 1875 End Begin VB.TextBox txtRasOpts Height = 285 Index = 18 Left = 2100 TabIndex = 58 Top = 11460 Width = 1875 End Begin VB.TextBox txtRasOpts Height = 285 Index = 17 Left = 2100 TabIndex = 56 Top = 11160 Width = 1875 End Begin VB.TextBox txtRasOpts Height = 285 Index = 16 Left = 2100 TabIndex = 54 Top = 10860 Width = 1875 End Begin VB.TextBox txtRasOpts Height = 285 Index = 15 Left = 2100 TabIndex = 52 Top = 10560 Width = 1875 End Begin VB.TextBox txtRasOpts Height = 285 Index = 14 Left = 2100 TabIndex = 50 Top = 10260 Width = 1875 End Begin VB.TextBox txtRasOpts Height = 285 Index = 13 Left = 2100 TabIndex = 48 Top = 9960 Width = 1875 End Begin VB.TextBox txtRasOpts Height = 285 Index = 12 Left = 2100 TabIndex = 46 Top = 9660 Width = 1875 End Begin VB.TextBox txtRasOpts Height = 285 Index = 11 Left = 2100 TabIndex = 44 Top = 9360 Width = 1875 End Begin VB.TextBox txtRasOpts Height = 285 Index = 10 Left = 2100 TabIndex = 42 Top = 9060 Width = 1875 End Begin VB.ComboBox cbRasOpts Height = 315 ItemData = "EntryInf.frx":0000 Left = 2100 List = "EntryInf.frx":0010 Style = 2 'Dropdown List TabIndex = 41 Top = 8760 Width = 1875 End Begin VB.CheckBox chkRasOpts Alignment = 1 'Right Justify Caption = "AllowTcpIp" Height = 255 Index = 19 Left = 60 TabIndex = 39 Top = 8460 Width = 3915 End Begin VB.CheckBox chkRasOpts Alignment = 1 'Right Justify Caption = "AllowIpxSpx" Height = 255 Index = 18 Left = 60 TabIndex = 38 Top = 8160 Width = 3915 End Begin VB.CheckBox chkRasOpts Alignment = 1 'Right Justify Caption = "AllowNetBEUI" Height = 255 Index = 17 Left = 60 TabIndex = 37 Top = 7860 Width = 3915 End Begin VB.TextBox txtRasOpts Height = 285 Index = 9 Left = 2100 TabIndex = 35 Top = 7560 Width = 1875 End Begin VB.TextBox txtRasOpts Height = 285 Index = 8 Left = 2100 TabIndex = 33 Top = 7260 Width = 1875 End Begin VB.TextBox txtRasOpts Height = 285 Index = 7 Left = 2100 TabIndex = 31 Top = 6960 Width = 1875 End Begin VB.TextBox txtRasOpts Height = 285 Index = 6 Left = 2100 TabIndex = 29 Top = 6660 Width = 1875 End Begin VB.TextBox txtRasOpts Height = 285 Index = 5 Left = 2100 TabIndex = 27 Top = 6360 Width = 1875 End Begin VB.TextBox txtRasOpts Height = 285 Index = 4 Left = 2100 TabIndex = 25 Top = 6060 Width = 1875 End Begin VB.TextBox txtRasOpts Height = 285 Index = 3 Left = 2100 TabIndex = 23 Top = 5760 Width = 1875 End Begin VB.TextBox txtRasOpts Height = 285 Index = 2 Left = 2100 TabIndex = 21 Top = 5460 Width = 1875 End Begin VB.TextBox txtRasOpts Height = 285 Index = 1 Left = 2100 TabIndex = 19 Top = 5160 Width = 1875 End Begin VB.TextBox txtRasOpts Height = 285 Index = 0 Left = 2100 TabIndex = 17 Top = 4860 Width = 1875 End Begin VB.CheckBox chkRasOpts Alignment = 1 'Right Justify Caption = "SecureLocalFiles" Height = 255 Index = 16 Left = 60 TabIndex = 16 Top = 4560 Width = 3915 End Begin VB.CheckBox chkRasOpts Alignment = 1 'Right Justify Caption = "UseLogonCredentials" Height = 255 Index = 14 Left = 60 TabIndex = 15 Top = 4260 Width = 3915 End Begin VB.CheckBox chkRasOpts Alignment = 1 'Right Justify Caption = "LogonToNetwork" Height = 255 Index = 13 Left = 60 TabIndex = 14 Top = 3960 Width = 3915 End Begin VB.CheckBox chkRasOpts Alignment = 1 'Right Justify Caption = "RequireDataEncryption" Height = 255 Index = 12 Left = 60 TabIndex = 13 Top = 3660 Width = 3915 End Begin VB.CheckBox chkRasOpts Alignment = 1 'Right Justify Caption = "RequireMsEncryptedPassword" Height = 255 Index = 11 Left = 60 TabIndex = 12 Top = 3360 Width = 3915 End Begin VB.CheckBox chkRasOpts Alignment = 1 'Right Justify Caption = "RequireEncryptedPassword" Height = 255 Index = 10 Left = 60 TabIndex = 11 Top = 3060 Width = 3915 End Begin VB.CheckBox chkRasOpts Alignment = 1 'Right Justify Caption = "SoftwareCompression" Height = 255 Index = 9 Left = 60 TabIndex = 10 Top = 2760 Width = 3915 End Begin VB.CheckBox chkRasOpts Alignment = 1 'Right Justify Caption = "DisplayModemStatus" Height = 255 Index = 8 Left = 60 TabIndex = 9 Top = 2460 Width = 3915 End Begin VB.CheckBox chkRasOpts Alignment = 1 'Right Justify Caption = "TerminalAfterDial" Height = 255 Index = 7 Left = 60 TabIndex = 8 Top = 2160 Width = 3915 End Begin VB.CheckBox chkRasOpts Alignment = 1 'Right Justify Caption = "TerminalBeforeDial" Height = 255 Index = 6 Left = 60 TabIndex = 7 Top = 1860 Width = 3915 End Begin VB.CheckBox chkRasOpts Alignment = 1 'Right Justify Caption = "DisableLcpExtensions" Height = 255 Index = 5 Left = 60 TabIndex = 6 Top = 1560 Width = 3915 End Begin VB.CheckBox chkRasOpts Alignment = 1 'Right Justify Caption = "RemoteDefaultGateway" Height = 255 Index = 4 Left = 60 TabIndex = 5 Top = 1260 Width = 3915 End Begin VB.CheckBox chkRasOpts Alignment = 1 'Right Justify Caption = "IPHeaderCompression" Height = 255 Index = 3 Left = 60 TabIndex = 4 Top = 960 Width = 3915 End Begin VB.CheckBox chkRasOpts Alignment = 1 'Right Justify Caption = "ServerAssignedNameServers" Height = 255 Index = 2 Left = 60 TabIndex = 3 Top = 660 Width = 3915 End Begin VB.CheckBox chkRasOpts Alignment = 1 'Right Justify Caption = "ServerAssignedIPaddress" Height = 255 Index = 1 Left = 60 TabIndex = 2 Top = 360 Width = 3915 End Begin VB.CheckBox chkRasOpts Alignment = 1 'Right Justify Caption = "UseCountryAndAreaCodes" Height = 255 Index = 0 Left = 60 TabIndex = 1 Top = 60 Width = 3915 End Begin VB.Label Label1 Caption = "Channels" Height = 255 Index = 19 Left = 60 TabIndex = 61 Top = 11760 Width = 1995 End Begin VB.Label Label1 Caption = "X25UserData" Height = 255 Index = 18 Left = 60 TabIndex = 59 Top = 11460 Width = 1995 End Begin VB.Label Label1 Caption = "X25Facilities" Height = 255 Index = 17 Left = 60 TabIndex = 57 Top = 11160 Width = 1995 End Begin VB.Label Label1 Caption = "X25Address" Height = 255 Index = 16 Left = 60 TabIndex = 55 Top = 10860 Width = 1995 End Begin VB.Label Label1 Caption = "X25PadType" Height = 255 Index = 15 Left = 60 TabIndex = 53 Top = 10560 Width = 1995 End Begin VB.Label Label1 Caption = "DeviceName" Height = 255 Index = 14 Left = 60 TabIndex = 51 Top = 10260 Width = 1995 End Begin VB.Label Label1 Caption = "DeviceType" Height = 255 Index = 13 Left = 60 TabIndex = 49 Top = 9960 Width = 1995 End Begin VB.Label Label1 Caption = "AutoDialFunc" Height = 255 Index = 12 Left = 60 TabIndex = 47 Top = 9660 Width = 1995 End Begin VB.Label Label1 Caption = "AutoDialDll" Height = 255 Index = 11 Left = 60 TabIndex = 45 Top = 9360 Width = 1995 End Begin VB.Label Label1 Caption = "Script" Height = 255 Index = 10 Left = 60 TabIndex = 43 Top = 9060 Width = 1995 End Begin VB.Label Label2 Caption = "DialUpServerType" Height = 255 Left = 60 TabIndex = 40 Top = 8760 Width = 1995 End Begin VB.Label Label1 Caption = "FrameSize" Height = 255 Index = 9 Left = 60 TabIndex = 36 Top = 7560 Width = 1995 End Begin VB.Label Label1 Caption = "SecondaryWINS" Height = 255 Index = 8 Left = 60 TabIndex = 34 Top = 7260 Width = 1995 End Begin VB.Label Label1 Caption = "PrimaryWINS" Height = 255 Index = 7 Left = 60 TabIndex = 32 Top = 6960 Width = 1995 End Begin VB.Label Label1 Caption = "SecondaryDNS" Height = 255 Index = 6 Left = 60 TabIndex = 30 Top = 6660 Width = 1995 End Begin VB.Label Label1 Caption = "PrimaryDNS" Height = 255 Index = 5 Left = 60 TabIndex = 28 Top = 6360 Width = 1995 End Begin VB.Label Label1 Caption = "IPaddress" Height = 255 Index = 4 Left = 60 TabIndex = 26 Top = 6060 Width = 1995 End Begin VB.Label Label1 Caption = "LocalPhoneNumber" Height = 255 Index = 3 Left = 60 TabIndex = 24 Top = 5760 Width = 1995 End Begin VB.Label Label1 Caption = "AreaCode" Height = 255 Index = 2 Left = 60 TabIndex = 22 Top = 5460 Width = 1995 End Begin VB.Label Label1 Caption = "CountryCode" Height = 255 Index = 1 Left = 60 TabIndex = 20 Top = 5160 Width = 1995 End Begin VB.Label Label1 Caption = "CountryID" Height = 255 Index = 0 Left = 60 TabIndex = 18 Top = 4860 Width = 1995 End End Attribute VB_Name = "frmEntryInfo" Attribute VB_Creatable = False Attribute VB_Exposed = False Dim LastText(26) As String Private Sub chkRasOpts_Click(Index As Integer) If ChangingInCode = False Then With PBE .UseCountryAndAreaCodes = -chkRasOpts(0).Value .ServerAssignedIPaddress = -chkRasOpts(1).Value .ServerAssignedNameServers = -chkRasOpts(2).Value .IPHeaderCompression = -chkRasOpts(3).Value .RemoteDefaultGateway = -chkRasOpts(4).Value .DisableLcpExtensions = -chkRasOpts(5).Value .TerminalBeforeDial = -chkRasOpts(6).Value .TerminalAfterDial = -chkRasOpts(7).Value .DisplayModemStatus = -chkRasOpts(8).Value .SoftwareCompression = -chkRasOpts(9).Value .RequireEncryptedPassword = -chkRasOpts(10).Value .RequireMsEncryptedPassword = -chkRasOpts(11).Value .RequireDataEncryption = -chkRasOpts(12).Value .LogOnToNetwork = -chkRasOpts(13).Value .UseLogonCredentials = -chkRasOpts(14).Value .SecureLocalFiles = -chkRasOpts(16).Value .AllowNetBEUI = -chkRasOpts(17).Value .AllowIpxSpx = -chkRasOpts(18).Value .AllowTcpIp = -chkRasOpts(19).Value End With End If End Sub Private Sub cbRasOpts_Click() Dim SvrType As Long If ChangingInCode = False Then SvrType = Val(cbRasOpts.List(cbRasOpts.ListIndex)) PBE.DialUpServerType = SvrType End If End Sub Private Sub Form_Load() Dim X As Long Me.Width = chkRasOpts(0).Width + (chkRasOpts(0).Left) + ((Me.Width - Me.ScaleWidth) * 2) + VScroll1.Width Me.Height = Screen.Height * 0.8 Picture1.Height = Label1(19).Top + Label1(19).Height + chkRasOpts(0).Top frmMain.cmdButtons(1).Enabled = True Me.Left = (Screen.Width - Me.Width) / 2 Me.Top = (Screen.Height - Me.Height) / 2 With PBE chkRasOpts(0).Value = -.UseCountryAndAreaCodes chkRasOpts(1).Value = -.ServerAssignedIPaddress chkRasOpts(2).Value = -.ServerAssignedNameServers chkRasOpts(3).Value = -.IPHeaderCompression chkRasOpts(4).Value = -.RemoteDefaultGateway chkRasOpts(5).Value = -.DisableLcpExtensions chkRasOpts(6).Value = -.TerminalBeforeDial chkRasOpts(7).Value = -.TerminalAfterDial chkRasOpts(8).Value = -.DisplayModemStatus chkRasOpts(9).Value = -.SoftwareCompression chkRasOpts(10).Value = -.RequireEncryptedPassword chkRasOpts(11).Value = -.RequireMsEncryptedPassword chkRasOpts(12).Value = -.RequireDataEncryption chkRasOpts(13).Value = -.LogOnToNetwork chkRasOpts(14).Value = -.UseLogonCredentials chkRasOpts(16).Value = -.SecureLocalFiles chkRasOpts(17).Value = -.AllowNetBEUI chkRasOpts(18).Value = -.AllowIpxSpx chkRasOpts(19).Value = -.AllowTcpIp txtRasOpts(0).Text = .CountryID txtRasOpts(1).Text = .CountryCode txtRasOpts(2).Text = .AreaCode txtRasOpts(3).Text = .LocalPhoneNumber txtRasOpts(4).Text = .IPaddress txtRasOpts(5).Text = .PrimaryDNS txtRasOpts(6).Text = .SecondaryDNS txtRasOpts(7).Text = .PrimaryWINS txtRasOpts(8).Text = .SecondaryWINS txtRasOpts(9).Text = .FrameSize txtRasOpts(10).Text = .Script txtRasOpts(11).Text = .AutoDialDll txtRasOpts(12).Text = .AutoDialFunc txtRasOpts(13).Text = .DeviceType txtRasOpts(14).Text = .DeviceName txtRasOpts(15).Text = .X25PadType txtRasOpts(16).Text = .X25Address txtRasOpts(17).Text = .X25Facilities txtRasOpts(18).Text = .X25UserData txtRasOpts(19).Text = .Channels SvrType = .DialUpServerType Select Case SvrType Case 0 cbRasOpts.ListIndex = 0 Case 1 cbRasOpts.ListIndex = 1 Case 2 cbRasOpts.ListIndex = 2 Case 4 cbRasOpts.ListIndex = 3 Case Else cbRasOpts.AddItem Format$(SvrType, "") & " (Unknown)" For X = 0 To cbRasOpts.ListCount If Val(cbRasOpts.List(X)) = SvrType Then cbRasOpts.ListIndex = X Exit For End If Next End Select End With For X = 0 To 19 LastText(X) = txtRasOpts(X).Text End Sub Private Sub Form_Resize() Picture1.Visible = False Picture1.Move 0, Picture1.Top, Me.ScaleWidth - VScroll1.Width, Picture1.Height Picture1.Visible = True VScroll1.Left = Me.ScaleWidth - VScroll1.Width VScroll1.Height = Me.ScaleHeight VScroll1.Max = Picture1.Height - Me.ScaleHeight VScroll1.SmallChange = chkRasOpts(0).Height + chkRasOpts(0).Top VScroll1.LargeChange = Me.ScaleHeight End Sub Private Sub Form_Unload(Cancel As Integer) frmMain.cmdButtons(1).Enabled = False End Sub Private Sub txtRasOpts_Change(Index As Integer) If ChangingInCode = False Then If txtRasOpts(Index).Text <> "" Then LastText(Index) = txtRasOpts(Index).Text End If With PBE Select Case Index Case 0: If txtRasOpts(Index).Text <> "" Then .CountryID = txtRasOpts(0).Text Else ChangingInCode = True txtRasOpts(Index).Text = LastText(Index) ChangingInCode = False Beep End If Case 1: If txtRasOpts(Index).Text <> "" Then .CountryCode = txtRasOpts(1).Text Else ChangingInCode = True txtRasOpts(Index).Text = LastText(Index) ChangingInCode = False Beep End If Case 2: If txtRasOpts(Index).Text <> "" Then .AreaCode = txtRasOpts(2).Text Else .AreaCode = " " End If Case 3: If txtRasOpts(Index).Text <> "" Then .LocalPhoneNumber = txtRasOpts(3).Text Else ChangingInCode = True txtRasOpts(Index).Text = LastText(Index) ChangingInCode = False Beep End If Case 4: .IPaddress = txtRasOpts(4).Text Case 5: .PrimaryDNS = txtRasOpts(5).Text Case 6: .SecondaryDNS = txtRasOpts(6).Text Case 7: .PrimaryWINS = txtRasOpts(7).Text Case 8: .SecondaryWINS = txtRasOpts(8).Text Case 9: .FrameSize = txtRasOpts(9).Text Case 10: .Script = txtRasOpts(10).Text Case 11: .AutoDialDll = txtRasOpts(11).Text Case 12: .AutoDialFunc = txtRasOpts(12).Text Case 13: .DeviceType = txtRasOpts(13).Text Case 14: .DeviceName = txtRasOpts(14).Text Case 15: .X25PadType = txtRasOpts(15).Text Case 16: .X25Address = txtRasOpts(16).Text Case 17: .X25Facilities = txtRasOpts(17).Text Case 18: .X25UserData = txtRasOpts(18).Text Case 19: If txtRasOpts(Index).Text <> "" Then .Channels = txtRasOpts(19).Text Else ChangingInCode = True txtRasOpts(Index).Text = LastText(Index) ChangingInCode = False Beep End If End Select End With End If End Sub Private Sub txtRasOpts_KeyPress(Index As Integer, KeyAscii As Integer) Select Case Index Case 0, 1, 9, 19, 20, 21, 22, 23, 24, 26, 26 Select Case KeyAscii Case 48 To 57, 8 'Numeric keys and backspace OK Case Else 'Others not allowed KeyAscii = 0 End Select Case 4, 5, 6, 7, 8 Select Case KeyAscii Case 48 To 57, 46 'Numeric keys, dots, and backspace OK Case Else 'Others not allowed KeyAscii = 0 End Select End Select End Sub Private Sub VScroll1_Change() Picture1.Visible = False Picture1.Top = -VScroll1.Value Picture1.Visible = True End Sub Private Sub VScroll1_Scroll() Picture1.Top = -VScroll1.Value Picture1.Refresh End Sub